Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/CLIPMENU.PRG

Text File | 1985-07-02 | 3KB | 90 lines

* clipmenu.PRG
SET TALK OFF
SET ECHO OFF
SET BELL OFF
CLEAR
sele 1
use clipwage
DO WHILE .T.
  SET COLOR TO 7/0
  CLEAR
  @ 0,3 SAY     "┌─────────────────────────────────────────────────────────────────────────┐"
  X = 1
  *
  * DRAW OUTER BOX LINES
  *
  DO WHILE X < 23
    @ X,3 SAY   "│"
    @ X,77 SAY  "│"
    X = X + 1
  ENDDO
  @ 23,3 SAY    "└─────────────────────────────────────────────────────────────────────────┘"
  *
  * COLOR IN MAIN BOX IN RED
  *
  SET COLOR TO R+/R+
  X = 1
  DO WHILE X < 23
    @ X,4 SAY    "                                                                         "
    X = X + 1
  ENDDO
  SET COLOR TO 7/0
  @ 3,9 say   "╔═════════════════════════════════════════════════════════════╗"
  @ 4,9 say   "║"
  @ 4,71 SAY  "║"
  @ 5,9 SAY   "║"
  @ 5,71 SAY  "║"
  @ 6,9 SAY   "║"
  @ 6,71 SAY  "║"
  @ 7,9 SAY   "║"
  @ 7,71 SAY  "║"
  @ 8,9 SAY   "║"
  @ 8,71 SAY  "║"
  @ 9,9 SAY   "╚═════════════════════════════════════════════════════════════╝"
  SET COLOR TO W+/R+
  @ 4,10 SAY   "                                                             "
  @ 5,10 SAY   "              CLIPPER - The dBASE III True Compiler          "
  @ 6,10 SAY   "                                                             "
  @ 7,10 SAY   " Menu of options in demonstration suite of compiled programs "
  @ 8,10 SAY   "                                                             "
  SET COLOR TO /w
  @ 22,13 SAY  "╚══════════════════════════════════════════════════════╝"
  @ 21,13 SAY  "║   Please enter number of option required             ║"
  @ 20,13 SAY  "║                                                      ║"
  @ 19,13 SAY  "║ 9  -  Exit demonstration suite.                      ║"
  @ 18,13 SAY  "║                                                      ║"
  @ 17,13 SAY  "║ 5  -  Edit data in the file (With Index on)          ║"
  @ 16,13 SAY  "║ 4  -  Add data to the file (With Index on)           ║"
  @ 15,13 SAY  "║ 3  -  Create index on any field (& search using it). ║"
  @ 14,13 SAY  "║ 2  -  View data records accessed sequentially.       ║"
  @ 13,13 SAY  "║ 1  -  View data records accessed by Index.           ║"
  @ 12,13 SAY  "║                                                      ║"
  @ 11,13 SAY  "╔══════════════════════════════════════════════════════╗"
  OPTION = 0
  SET COLOR TO w+/0,w+/0
  @ 21,58 GET option PICT "9"
  READ
  CLEAR GETS
  DO CASE
    CASE OPTION = 1
      SET COLOR TO 7/0
      DO CLIPWAGE
    CASE OPTION = 2
      SET COLOR TO 7/0
      DO CLIPSRCH
    CASE OPTION = 3
      SET COLOR TO 7/0
      DO CLIPNDX
    CASE OPTION = 4
      SET COLOR TO 7/0
      DO CLIPAPP
    CASE OPTION = 5
      SET COLOR TO 7/0
      DO CLIPEDIT
    CASE OPTION = 9
      SET COLOR TO 7/0
      EXIT
  ENDCASE
  SET COLOR TO 7/0
ENDDO